home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Segments Part 3 / Literacy Segments Part 3 / background_25851.txt < prev    next >
Text File  |  1989-08-22  |  11KB  |  513 lines
  1. -- background: 25851 from stack: in
  2. -- bmap block id: 25936
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 2.2.4 Practice2
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global answerTracker
  9.   send mouseUp to bg btn "done"
  10.   repeat with i = 1 to 3
  11.     get line (line 2 of fld "key") of answerTracker
  12.     if it = "y" and i = line 1 of fld "key"
  13.     then set the hilite of bg btn ("hiliter" & i) to true
  14.   else set the hilite of bg btn ("hiliter" & i) to false
  15. end repeat
  16. pass openCard
  17. end openCard
  18.  
  19. on hideFeedback
  20.   lock screen
  21.   hide fld "Feedback1"
  22.   hide fld "Feedback2"
  23.   hide fld "Feedback3"
  24.   hide fld "Feedback4"
  25.   hide fld "CorrectAnswer"
  26.   hide fld "MasterFeedback"
  27.   hide bg btn "Done"
  28.   unlock screen
  29. end hideFeedback
  30.  
  31. on showFeedback
  32.   lock screen
  33.   show fld "Feedback1"
  34.   show fld "Feedback2"
  35.   show fld "Feedback3"
  36.   show fld "Feedback4"
  37.   show fld "CorrectAnswer"
  38.   show fld "MasterFeedback"
  39.   show bg btn "Done"
  40.   unlock screen
  41. end showFeedback
  42.  
  43. on feedback
  44.   global answerTracker
  45.   lock screen
  46.  
  47.   get last char of the short name of the target
  48.   if line (line 2 of fld "key") of answerTracker ‚↠"y" then
  49.     -- don't overwrite if Q has been answered
  50.     if it = line 1 of fld "key" then
  51.       -- this is the correct answer
  52.       put "y" into line (line 2 of fld "key") of answerTracker
  53.     else put "n" into line (line 2 of fld "key") of answerTracker
  54.   end if
  55.  
  56.   put fld ("feedback" & it) into fld "masterFeedback"
  57.   show fld "masterFeedback"
  58.   show bg btn "Done"
  59.  
  60.   unlock screen
  61. end feedback
  62.  
  63.  
  64. -- part 3 (field)
  65. -- low flags: 01
  66. -- high flags: 0000
  67. -- rect: left=18 top=1 right=38 bottom=442
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 156
  72. -- text size: 24
  73. -- style flags: 10240
  74. -- line height: 32
  75. -- part name: Title
  76.  
  77.  
  78. -- part 5 (field)
  79. -- low flags: 81
  80. -- high flags: 0001
  81. -- rect: left=423 top=0 right=13 bottom=466
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 65535
  85. -- font id: 4
  86. -- text size: 9
  87. -- style flags: 0
  88. -- line height: 12
  89. -- part name: CardTitle
  90.  
  91.  
  92. -- part 14 (button)
  93. -- low flags: 00
  94. -- high flags: 0000
  95. -- rect: left=443 top=5 right=72 bottom=512
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: Instant Reference
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.   instantReference "2.2.4"
  107. end mouseUp
  108.  
  109.  
  110. -- part 15 (button)
  111. -- low flags: 00
  112. -- high flags: 2000
  113. -- rect: left=480 top=143 right=172 bottom=511
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 1310 / 1310
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: Student Services
  122. ----- HyperTalk script -----
  123. on mousedown
  124.   SSpopUp
  125. end mousedown
  126.  
  127. on mouseup
  128.   if the mouseloc is not within the rect of me then exit to hyperCard
  129.   doSS
  130. end mouseup
  131.  
  132.  
  133.  
  134. -- part 16 (button)
  135. -- low flags: 00
  136. -- high flags: 2000
  137. -- rect: left=482 top=176 right=205 bottom=511
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 162 / 162
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Help
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   Help
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 17 (button)
  154. -- low flags: 00
  155. -- high flags: 2000
  156. -- rect: left=482 top=294 right=320 bottom=509
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 1236 / 1236
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: Last Menu
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   go cd "Access Methods P/1"
  168. end mouseUp
  169.  
  170.  
  171. -- part 19 (button)
  172. -- low flags: 00
  173. -- high flags: 2000
  174. -- rect: left=493 top=319 right=341 bottom=512
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 1237 / 1237
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: Next
  183. ----- HyperTalk script -----
  184. on mouseUp
  185.   lock screen
  186.   go next
  187.   unlock screen with scroll left
  188. end mouseUp
  189.  
  190.  
  191. -- part 20 (field)
  192. -- low flags: 01
  193. -- high flags: 0000
  194. -- rect: left=16 top=38 right=65 bottom=445
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 0
  198. -- font id: 156
  199. -- text size: 20
  200. -- style flags: 0
  201. -- line height: 26
  202. -- part name: Subtitle
  203.  
  204.  
  205. -- part 21 (field)
  206. -- low flags: 01
  207. -- high flags: 0000
  208. -- rect: left=63 top=70 right=110 bottom=443
  209. -- title width / last selected line: 0
  210. -- icon id / first selected line: 0 / 0
  211. -- text alignment: 0
  212. -- font id: 156
  213. -- text size: 16
  214. -- style flags: 0
  215. -- line height: 17
  216. -- part name: Question
  217.  
  218.  
  219. -- part 22 (field)
  220. -- low flags: 01
  221. -- high flags: 0000
  222. -- rect: left=63 top=114 right=134 bottom=444
  223. -- title width / last selected line: 0
  224. -- icon id / first selected line: 0 / 0
  225. -- text alignment: 0
  226. -- font id: 3
  227. -- text size: 10
  228. -- style flags: 256
  229. -- line height: 15
  230. -- part name: Instruction
  231.  
  232.  
  233. -- part 23 (field)
  234. -- low flags: 01
  235. -- high flags: 2004
  236. -- rect: left=67 top=139 right=184 bottom=447
  237. -- title width / last selected line: 0
  238. -- icon id / first selected line: 0 / 0
  239. -- text alignment: 0
  240. -- font id: 156
  241. -- text size: 16
  242. -- style flags: 0
  243. -- line height: 17
  244. -- part name: Answer1
  245.  
  246.  
  247. -- part 24 (field)
  248. -- low flags: 01
  249. -- high flags: 2004
  250. -- rect: left=67 top=182 right=227 bottom=447
  251. -- title width / last selected line: 0
  252. -- icon id / first selected line: 0 / 0
  253. -- text alignment: 0
  254. -- font id: 156
  255. -- text size: 16
  256. -- style flags: 0
  257. -- line height: 17
  258. -- part name: Answer2
  259.  
  260.  
  261. -- part 25 (field)
  262. -- low flags: 01
  263. -- high flags: 2004
  264. -- rect: left=67 top=225 right=270 bottom=447
  265. -- title width / last selected line: 0
  266. -- icon id / first selected line: 0 / 0
  267. -- text alignment: 0
  268. -- font id: 156
  269. -- text size: 16
  270. -- style flags: 0
  271. -- line height: 17
  272. -- part name: Answer3
  273.  
  274.  
  275. -- part 31 (button)
  276. -- low flags: 00
  277. -- high flags: A004
  278. -- rect: left=179 top=321 right=340 bottom=324
  279. -- title width / last selected line: 0
  280. -- icon id / first selected line: 0 / 0
  281. -- text alignment: 1
  282. -- font id: 0
  283. -- text size: 12
  284. -- style flags: 0
  285. -- line height: 16
  286. -- part name: Answer
  287. ----- HyperTalk script -----
  288. on mouseUp
  289.   global answerTracker
  290.   lock screen
  291.   put "y" into line (line 2 of fld "key") of answerTracker
  292.   put fld "CorrectAnswer" into fld "MasterFeedback"
  293.   show fld "MasterFeedback"
  294.   show bg btn "Done"
  295.   unlock screen
  296. end mouseUp
  297.  
  298.  
  299. -- part 33 (button)
  300. -- low flags: 00
  301. -- high flags: 2000
  302. -- rect: left=478 top=319 right=341 bottom=498
  303. -- title width / last selected line: 0
  304. -- icon id / first selected line: 1238 / 1238
  305. -- text alignment: 1
  306. -- font id: 0
  307. -- text size: 12
  308. -- style flags: 0
  309. -- line height: 16
  310. -- part name: Prev
  311. ----- HyperTalk script -----
  312. on mouseUp
  313.   lock screen
  314.   go prev
  315.   unlock screen with scroll right
  316. end mouseUp
  317.  
  318.  
  319. -- part 34 (field)
  320. -- low flags: 81
  321. -- high flags: 2007
  322. -- rect: left=8 top=36 right=94 bottom=231
  323. -- title width / last selected line: 0
  324. -- icon id / first selected line: 0 / 0
  325. -- text alignment: 0
  326. -- font id: 156
  327. -- text size: 16
  328. -- style flags: 0
  329. -- line height: 17
  330. -- part name: Feedback1
  331.  
  332.  
  333. -- part 36 (field)
  334. -- low flags: 81
  335. -- high flags: 2007
  336. -- rect: left=8 top=159 right=216 bottom=231
  337. -- title width / last selected line: 0
  338. -- icon id / first selected line: 0 / 0
  339. -- text alignment: 0
  340. -- font id: 156
  341. -- text size: 16
  342. -- style flags: 0
  343. -- line height: 17
  344. -- part name: Feedback3
  345.  
  346.  
  347. -- part 37 (field)
  348. -- low flags: 81
  349. -- high flags: 2007
  350. -- rect: left=8 top=219 right=277 bottom=231
  351. -- title width / last selected line: 0
  352. -- icon id / first selected line: 0 / 0
  353. -- text alignment: 0
  354. -- font id: 156
  355. -- text size: 16
  356. -- style flags: 0
  357. -- line height: 17
  358. -- part name: Feedback4
  359.  
  360.  
  361. -- part 39 (field)
  362. -- low flags: 81
  363. -- high flags: 2007
  364. -- rect: left=8 top=280 right=338 bottom=231
  365. -- title width / last selected line: 0
  366. -- icon id / first selected line: 0 / 0
  367. -- text alignment: 0
  368. -- font id: 156
  369. -- text size: 16
  370. -- style flags: 0
  371. -- line height: 17
  372. -- part name: CorrectAnswer
  373.  
  374.  
  375. -- part 42 (field)
  376. -- low flags: 81
  377. -- high flags: 2007
  378. -- rect: left=8 top=97 right=155 bottom=231
  379. -- title width / last selected line: 0
  380. -- icon id / first selected line: 0 / 0
  381. -- text alignment: 0
  382. -- font id: 156
  383. -- text size: 16
  384. -- style flags: 0
  385. -- line height: 17
  386. -- part name: Feedback2
  387.  
  388.  
  389. -- part 52 (button)
  390. -- low flags: 00
  391. -- high flags: 2000
  392. -- rect: left=482 top=208 right=234 bottom=509
  393. -- title width / last selected line: 0
  394. -- icon id / first selected line: 1234 / 1234
  395. -- text alignment: 1
  396. -- font id: 0
  397. -- text size: 12
  398. -- style flags: 0
  399. -- line height: 16
  400. -- part name: Lesson
  401. ----- HyperTalk script -----
  402. on mouseUp
  403.   lesson "2.2.4"
  404. end mouseUp
  405.  
  406.  
  407. -- part 54 (button)
  408. -- low flags: 00
  409. -- high flags: 2000
  410. -- rect: left=68 top=140 right=181 bottom=444
  411. -- title width / last selected line: 0
  412. -- icon id / first selected line: 0 / 0
  413. -- text alignment: 1
  414. -- font id: 0
  415. -- text size: 12
  416. -- style flags: 0
  417. -- line height: 16
  418. -- part name: hiliter1
  419. ----- HyperTalk script -----
  420. on mouseUp
  421.   feedback
  422. end mouseUp
  423.  
  424.  
  425. -- part 55 (button)
  426. -- low flags: 00
  427. -- high flags: 2000
  428. -- rect: left=68 top=183 right=224 bottom=444
  429. -- title width / last selected line: 0
  430. -- icon id / first selected line: 0 / 0
  431. -- text alignment: 1
  432. -- font id: 0
  433. -- text size: 12
  434. -- style flags: 0
  435. -- line height: 16
  436. -- part name: hiliter2
  437. ----- HyperTalk script -----
  438. on mouseUp
  439.   feedback
  440. end mouseUp
  441.  
  442.  
  443. -- part 56 (button)
  444. -- low flags: 00
  445. -- high flags: 2000
  446. -- rect: left=68 top=226 right=267 bottom=444
  447. -- title width / last selected line: 0
  448. -- icon id / first selected line: 0 / 0
  449. -- text alignment: 1
  450. -- font id: 0
  451. -- text size: 12
  452. -- style flags: 0
  453. -- line height: 16
  454. -- part name: hiliter3
  455. ----- HyperTalk script -----
  456. on mouseUp
  457.   feedback
  458. end mouseUp
  459.  
  460.  
  461. -- part 40 (field)
  462. -- low flags: 81
  463. -- high flags: 2004
  464. -- rect: left=147 top=132 right=304 bottom=356
  465. -- title width / last selected line: 0
  466. -- icon id / first selected line: 0 / 0
  467. -- text alignment: 0
  468. -- font id: 156
  469. -- text size: 16
  470. -- style flags: 0
  471. -- line height: 17
  472. -- part name: MasterFeedback
  473.  
  474.  
  475. -- part 41 (button)
  476. -- low flags: 80
  477. -- high flags: A002
  478. -- rect: left=215 top=279 right=296 bottom=284
  479. -- title width / last selected line: 0
  480. -- icon id / first selected line: 0 / 0
  481. -- text alignment: 1
  482. -- font id: 0
  483. -- text size: 12
  484. -- style flags: 0
  485. -- line height: 16
  486. -- part name: Done
  487. ----- HyperTalk script -----
  488. on mouseUp
  489.   global answerTracker
  490.   lock screen
  491.   if line (line 2 of fld "key") of answerTracker = "y" then
  492.     -- question correctly answered
  493.     set the hilite of bg btn ("hiliter" & line 1 of fld "key") to true
  494.   end if
  495.   hide fld "MasterFeedback"
  496.   hide bg btn "Done"
  497.   unlock screen
  498. end mouseUp
  499.  
  500.  
  501. -- part 57 (field)
  502. -- low flags: 81
  503. -- high flags: 0002
  504. -- rect: left=2 top=307 right=341 bottom=37
  505. -- title width / last selected line: 0
  506. -- icon id / first selected line: 0 / 0
  507. -- text alignment: 0
  508. -- font id: 3
  509. -- text size: 12
  510. -- style flags: 0
  511. -- line height: 16
  512. -- part name: Key
  513.